﻿Public Class Automobile
  Inherits Veicolo

  Private m_targa As String
  Private m_colore As String
  Private m_cilindrata As Integer

  Public Sub New()
    MyBase.New()
  End Sub

  Public Sub New(ByVal targa As String)
    m_targa = targa
  End Sub

  Public Sub New(ByVal targa As String, _
                 ByVal colore As String)
    m_targa = targa
    m_colore = colore
  End Sub

  Public Sub New(ByVal targa As String, _
                 ByVal cilindrata As Integer, _
                 ByVal colore As String)
    m_targa = targa
    m_cilindrata = _
       CType(cilindrata, Integer)
    m_colore = colore
  End Sub

  Public ReadOnly Property targa
    Get
      targa = m_targa
    End Get
  End Property

  Public ReadOnly Property colore
    Get
      colore = m_colore
    End Get
  End Property

  Public ReadOnly Property cilindrata
    Get
      cilindrata = m_cilindrata
    End Get
  End Property
End Class
